home *** CD-ROM | disk | FTP | other *** search
/ Guidemac 2 / Guidemac 2.iso / Logiciels divers T1 / Gestion / Bibliographie⁄Répertoire / Répertoire 3.0 / RÈpertoire 3.0.rsrc / LENS_132_MultiRecherches < prev    next >
Text File  |  1994-08-22  |  4KB  |  144 lines
  1. ItemType: WIND
  2. Rect: 203,85,437,351
  3. Style: Windoid
  4. HasTitleBar: FALSE
  5. HasZoomBox: FALSE
  6. HasCloseBox: TRUE
  7. HasGrowBox: FALSE
  8. MinSize: 100,50
  9. MaxSize: 32767,32767
  10. Name: MultiRecherches
  11. WhiteColor: -8739,-8739,-8739
  12. Script: --(d'après Alan Pabst, Heizer Software)¬--on windowEvent wdID,wdName,objNo,objName,objValue¬¬if objValue is "Open" then¬  wsSet wdID,"EntreeA","Text",""¬  wsSet wdID,"EntreeB","Text",""¬  wsSet wdID,"EntreeC","Text",""¬  wsSet wdID,"EntreeD","Text",""¬  wsSet wdID,"Path","Text",""¬  wsSet wdID,"Complet","Value","0"¬  wsSet wdID,"Rechercher","Disabled","true"¬  wsSet wdID,"Consulter","Disabled","true"¬  wsSet wdID,"Stocker","Disabled","true"  ¬else if objValue is "Close" then¬  effaceCorne¬  put empty into GsubSelec¬  put false into GCorne¬  put empty into laListe¬else if objValue ="Suspend" then¬  ¬else if objValue ="Resume" then¬  ¬else if objValue ="CloseBox" then¬  ¬else if objValue ="ZoomBox" then¬  ¬else if objValue ="GrowBox" then¬  ¬else if objValue ="TitleBar" then¬  ¬end if¬--end windowEvent
  13.  
  14. ItemType: PUSH
  15. Rect: 79,135,159,152
  16. TextFont: Geneva
  17. TextSize: 10
  18. Disabled: TRUE
  19. Name: Rechercher
  20. DefaultItem: TRUE
  21. Balloon: Ce bouton devient actif avec l'appui sur la touche Tabulation après la saisie du mot à recherche.
  22. Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬bigRecherche¬--end mouseUp
  23.  
  24. ItemType: TEXT
  25. Rect: 18,39,216,56
  26. TextFont: Geneva
  27. TextSize: 10
  28. Name: EntreeA
  29. BlackColor: 4369,4369,4369
  30. WhiteColor: -1,-1,-13108
  31. LockText: FALSE
  32. Script: --on mouseUp wdID,wdName,objNo,objName,ObjValue¬wsSet wdId,"Rechercher","Disabled","false"¬--end mouseUp¬
  33.  
  34. ItemType: PUSH
  35. Rect: 129,230,209,247
  36. TextFont: Geneva
  37. TextSize: 10
  38. Name: Annuler
  39. CancelItem: TRUE
  40. AutoClose: TRUE
  41. Balloon: Ferme la fenêtre de recherche
  42.  
  43. ItemType: TEXT
  44. Rect: 10,179,179,205
  45. TextFont: Geneva
  46. TextSize: 10
  47. Name: Path
  48. TextAlign: Center
  49.  
  50. ItemType: LBL
  51. Rect: 8,22,178,38
  52. TextSize: 12
  53. BlackColor: 0,0,-8739
  54. Text: Valeur(s) recherchée(s) ?
  55.  
  56. ItemType: CNTL
  57. Rect: 6,11,217,23
  58. BlackColor: 0,0,-8739
  59. Name: Complet
  60. Style: 320
  61. Min: 0
  62. Max: 467
  63. Value: 0
  64. Step: 1
  65. Leap: 10
  66.  
  67. ItemType: TEXT
  68. Rect: 10,-1,29,11
  69. TextFont: Geneva
  70. TextSize: 9
  71. Name: 0%
  72. BlackColor: 0,0,-8739
  73. WhiteColor: -8739,-8739,-8739
  74. Text: 0%
  75.  
  76. ItemType: TEXT
  77. Rect: 184,-1,215,11
  78. TextFont: Geneva
  79. TextSize: 9
  80. Name: 100%
  81. BlackColor: 0,0,-8739
  82. WhiteColor: -8739,-8739,-8739
  83. Text: 100%
  84.  
  85. ItemType: PUSH
  86. Rect: 10,231,90,248
  87. TextFont: Geneva
  88. TextSize: 10
  89. Name: Effacer
  90. Balloon: Efface la requête et ses résultats. Permet une nouvelle  recherche.
  91. Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬wsSet wdID,"EntreeA","TEXT",""¬wsSet wdID,"EntreeB","TEXT",""¬wsSet wdID,"EntreeC","TEXT",""¬wsSet wdID,"EntreeD","TEXT",""¬wsSet wdID,"path","TEXT",""¬wsSet wdID,"Complet","Value","0"¬wsSet wdID,"Consulter","Disabled","true"¬wsSet wdID,"Stocker","Disabled","True"¬wsSet wdID,"Annuler","Disabled","False"¬effaceCorne¬put false into GCorne¬put empty into GSubSelec¬--end mouseUp
  92.  
  93. ItemType: LBL
  94. Rect: 8,159,74,175
  95. BlackColor: 0,0,-8739
  96. Text: Résultats
  97.  
  98. ItemType: PUSH
  99. Rect: 130,208,210,225
  100. TextFont: Geneva
  101. TextSize: 10
  102. Disabled: TRUE
  103. Name: Stocker
  104. Balloon: Ce bouton conduit à la première carte où il est possible de stocker les recherches effectuées (dans la limite de 4 stockages).
  105. Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬push cd¬go cd 1¬stockage¬--end mouseUp
  106.  
  107. ItemType: PUSH
  108. Rect: 9,210,89,227
  109. TextFont: Geneva
  110. TextSize: 10
  111. Disabled: TRUE
  112. Name: Consulter
  113. Balloon: Ce bouton permet d'afficher une nouvelle fenêtre permettant une consultation des fiches sélectionnées.
  114. Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬get windowScript("Consultation")¬--end mouseUp
  115.  
  116. ItemType: TEXT
  117. Rect: 18,61,216,78
  118. TextFont: Geneva
  119. TextSize: 10
  120. Name: EntreeB
  121. BlackColor: 4369,4369,4369
  122. WhiteColor: -1,-1,-13108
  123. LockText: FALSE
  124. Script: ¬
  125.  
  126. ItemType: TEXT
  127. Rect: 18,84,216,101
  128. TextFont: Geneva
  129. TextSize: 10
  130. Name: EntreeC
  131. BlackColor: 4369,4369,4369
  132. WhiteColor: -1,-1,-13108
  133. LockText: FALSE
  134. Script: ¬
  135.  
  136. ItemType: TEXT
  137. Rect: 18,108,216,125
  138. TextFont: Geneva
  139. TextSize: 10
  140. Name: EntreeD
  141. BlackColor: 4369,4369,4369
  142. WhiteColor: -1,-1,-13108
  143. LockText: FALSE
  144. Script: ¬